00100 begin 00200 require "[]()" delimiters; 00300 define int(a)=[assignc a=0; integer gar; outstr(cvps(a))]; 00450 begin int(); end; 00500 end